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FROM THE EDITOR 


HAPPY FIFTH BIRTHDAY 





earned the front page. 

The author is Mitch Pendlebury, not yet in his teens. Well 
done Miteh, and thankyou. Wa hope to see you back in the High 
Scores soon. At present we are watching the duel between Peter 
Watson and the McLean gang. They have the limelight, but don’t 
lat them get away with it. 


1 have a suggestion from Peter. How about running a 
competition for the best design done on the computer. It’s your 
club, so let me hear from you. How is it to be done? Anyhow, or 
using the utilities such as Sprite, Art Gallery, Magic Paint Graf 
Star etc., and in Basic or machine code. And do we Bar the 
"Experts"? 

If it is decided to use the utilities, does eveyone have 
them. Some I can add to the library, but I can’t add Art Gallery. 


Well, don’t just sit there. Grab a pen and start writing! 


I may have misled many when I’ve mentioned memory gize. I 
have been using a memory expansion marked 16K, in the beleif that 
if I used that I could make sure I did’nt print anything that 
would’nt run on standard memory. I was pulled into line when I 
gave a program to a member, and showed how it ran. He got home 
and phoned me to say it would’nt even load. After checking lots 
of things [ compared his Top of Mem with mine, and suddenly 
realised that my 16K was indeed a 64K; mis-marked. | 

Thera was a batch came out like that, I knew, but never 
thought I'd be lucky enough to get one. Maybe you have one and 
don't know it, so check, To do so type this in without line 
numbers, and if you have disk drive, then take the controller out 
and plug the memory straight into the computer. | 


PRINTF PEEK < SCO EB 7Z > s PEEK < SOS 28 > and 
press RETURN. | 


You will get 2 numbers. A 44K unit will be 255 255. Any 
other numbers and it is as marked. A 64K will have a top of 
memory of 65536 bytes. Mybe you are lucky, as there were a lot 
that both Laserlink and Dick Smith brought in. Not just an odd 
one. Even if you don’t use the bank switching, they still give 
about an extra 2K of useable memory. 


As a birthday issue, you will see we have a few extra pages 
in this issue. - 


Tapes 8-9-10 are now available, and their index is elsewhere. 
Also a list of the books wa have available for loan. If you get 
these, please return them promptly, as others may need them. 
Unless you are advanced in M/L, don’t rush for Zac’s programming 
the Z80. It has everything; if you can understand it. It is not a 
VZ book, but deals with the MPU that the VZ uses. 





HI-RES GRAPHICS GEOMETRIC PLOTTING. 


By Bob Kitch 


The following program is a simple line plotting routine using the 
Si-res graphics screen. It was written to try and demonstrate how 
programming skills can be improved by following a few simple 
quidelines. It is a plea for more readable Basic programs. 


Unfortunately published programs, in magazines, are generally poor 
examples of how to develope good programming style. A number of us may 
have taken the trouble to enter a listing from a magazine — but upon 
running the code have found that all is not well! A long, tedious and 
frustrating session of understanding the poorly constructed code 
follows. Often this requires that the twists and turns of the “logical 


_ spaghetti” be unravelled before debugging can commence. A usual remedy 


ie toO re-write the program from scratch. 
The program LINPLOT is written using the following guidelines — 
1. Clearly coded and set out — an enormous help to UNDERSTANDING. 


2, The program is STRUCTURED — a good algorithm is selected and the 


program "flows" through initialization, to input, procedure and output 


sections. 
X. Loops are indented for ease of identification and nesting. 


4. Naming of variables is meaningful to assist maintenance and 
debugging. 


5. Integer storage is used where appropriate. 

6. No abbreviated forms of Basic statements are used. 

7. Remarks are liberally sprinkled throughout to aid clarity. 

8. Error capture and range checking on all input variables prevents 


the program from crashing. : 


Clear readable code is more important than the execution speed or 
storage requirements of a program -~ interpreted Basic runs like a 
tired snail in any case! 


These guidelines should lead to code that is easier to read, 
understand and debug. This leads to easier maintenance, updating or 
expansion of your routines as your programming skills develop. 


10 ' OR EE IE RR EE ND OR ON DOE NOR OR ME OR OER OR IK N IE OE OE 
20 ' *“** PLOT A SET OF UP TO 20 LINES *#* 
50 | **w* USING THE HI-RES SCREEN. ww 
40 *** R,B.KITCH 22/10/85 * 
a ËR b t h t ip ode die ae de ode ap die oe die oie od de ode aie de oe ap die ap oo ae als og ah ads ae ate as am 


100 '*** DIMENSION STORAGE VECTORS X% & YZ. 


li. DIM X%(20),Y%(20):CLS:'*##VECTORS TO HOLD END CO-ORDS. 


120 '*** ACCEPT INPUT AND CHECK. 3, 


890 
900 


“ahd 


INPUT "HOW MANY LINES - MAX 20 "LNS 
IF LN%<1 OR LN%>20 THEN GOTO 130 | 
FOR I%=O0 TO LN% eel OOP FOR LN%+1] X-Y POINTS. 
INPUT"ENTER X-VAL 0-127 “;X%(T%) 
IF X%(1%)<O OR X%(1%)>127 THEN GOTO 160:'***CHECK ON SCRN 
INPUT“ENTER Y-VAL O- 635 ";Y%(1%) 
IF Y%(1%)<O OR Y%(1%)> 63 THEN GOTO 180:'***CHECK ON SCRN 
NEXT I% | 


'eeeSET UP SCREEN AND MAIN PLOTTING LOOP. 

MODE (1) ;'*@@SWITCH SCREEN TO HI-RES. 

FOR IZ=0 TO LNZ-1 : 'eeeASSIGN MAIN LOOP FOR LN% LINES. 
X1XsX%(I%):X2X=sX%(IX+1): '***ASSIGN END POINTS TO TEMP VAR 
Y1%=Y%([I%):Y2X=Y%(I%+1):'**#@ASSIGN END POINTS TO TEMP VAR 

'eeeARE THE POINTS THE SAME? | 





IF X1%<>X2% OR Y1%<>Y2% THEN GOTO 410 
oe ag :'***END POINTS ARE THE SAME SO PLOT. 
GOTO 710 


'#SSCALCULATE X AND Y DIFFERENCE. 
DXZ=X2%-X1%:DY%=Y2%-Y1%:'***CHANGE INX & Y DIRECTIONS. 

'æx#SEE WHICH IS LARGER. 

IF ABS(DX%)>ABS(DY%) THEN GOTO 610 


‘#**TNCREMENT IY OR ALONG Y-AXIS. 
YS%Z=SGN (DY) :0G=DX%/OY%: '***SIGN OF STEP AND GRADIENT. 
XO=X1%+0.5 ¢'#*eX-AXTS OFFSET. 
FOR LYZ=Y1% TO Y2% STEP YS%:'***INITIALIZE LOOP. 
TP=(1Y%-Y1%) *DG+XO: '***TEMP REAL X-VALUE. 


IXZ=INT (TP) :'***TNTEGER X-VALUE. 
SET(IX%, LYS) 

NEXT IYJ 

GOTO 710 : '*eepICK UP ANOTHER LINE. 


‘eea INCREMENT IX OR ALONG X-AXIS. 

XSR=SGN (OXK) :O0G=0YS/OXR: '***SIGN OF STEP AND GRADIENT. 

YO#¥ 1410.5 :'eeey-AXTS OFFSET, 

FOR IX%=X1% TO X2% STEP XS%:'***INITIALIZE LOOP. 
tIP=(IX%-X1%)*DG+YO: '*eeTEMP REAL Y-VALUE. 
IY%=INT(TP) :'***INTEGER Y-VALUE. 

SET (IX%,IY%) i 

NEXT IX% 


‘***END LOOP FOR LINE. | 

en 28,6 :'***END LOOP. 
ANS=INKEYS:ANS=INKEYS :'***PAUSE FOR ANY KEYSTROKE. 
[F ANS="" THEN GOTO 730 


‘##*®GO AGAIN? 


`CLS:PRINT” (E) TO EXIT": '“““SCREEN MESSAGE OR MENU. ` 


PRINT" (P) TO PLOT AGAIN” 

PRINT" (N) FOR NEW POINTS” :PRINT 

INPUT ANS :'*** ACCEPT RESPONSE. 

ANS=LEFTS (ANS, 1) ¢'***CLEAN IT UP. 

IF ANS="E" THEN STOP ;'***LOGICAL END TO PROGRAM. 

IF AN$="P" THEN GOTO 310:‘'***GO BACK AND PLOT AGAIN. 
IF ANS="N" THEN GOTO 130:'***"GO BACK FOR MORE INPUT. 
GOTO 810 :'**#*WRONG RESPONSE. | 


END ñ 


MORE I/O ERRORS. 


Never a dull moment here. A phone call from a member who had 
an important WORDPROCESSOR file on disk, and got an I/O ERROR 
when trying to load. Thanks to another member who lived nearby 
(country miles), it was saved to another disk. His first attempt 
was futile, but he switched to the EX DOS in the EPROM, and it 
came up D.K. I would like to know why that was so, or was it 
just co-incidence?. 


During writing, the item was saved as ITEM-i, ITEM-2 etc. 
For the last saving the disk was full, so the previous items 
were ERAed. 


t do aot advocate using that method. The ERA does not wipe 
the disk clean. It merely removes the T-B-W-D or whatever, and 
adjusts the track map. The rest of the text is left there to be 
overwritten. The UPDATE command is merely an ERA"... “SAVE os" 
command and the same state exists. 


I will quote from the DOS handbook: — 


Diskettes that have had a lot of creation and deletion 
activity become fr aqme rh ted, because space is not 
allocated sequentially. ———— aA fragmented disk can Cause 
degraded per formance due to excessive head movement and 
rotational delays involved in finding, reading, or writing a 
file. Unquote. 


Y kran the disks’ get blamed. I have a collection af over 3500 
disks, and have only struck 2 BAD disks. Both were TOP BRAND 
names. 


The foregoing does not apply to a disk that has been 
re-formatted. That IS wiped clean. 


Some causes of 1/0 errors ares— 

Leaving the disk in the drive with the door closed during 
reset, Power up or powere down, either intended or when the 
computer does it without command. After saving or loading, open 
the door. Make a habit of it. REPEAT Make a habit of it. 

Bending of the disk. Be careful when putting it in the 
drive. I 


A power surge during saving or loading 

Excessive heat 

Dust or fingers on the disk surface. 

Excessive pressure in storage. An extra disk where there’s 
no space for it. 

High humitity and anything else you can think of. 


The way around? . 


Diurp il ic at e copies nr Separate 


di sk =< .. 





Fuzzy Lio g Tec 
by Jason Oakley 





The term "Fuzzy Logic" was coined by Professor Lofti Zadeh of the 
University of California. It was used at Berkley in a seminal paper in 
an academic journal, Information and Control, in 1965. The concepts 
were the work of a Polish mathematician, Jan Lukasiewicz, in the 1920s 
and therefore. although only widely heard of in the last few years, 
has been around for quite 4 while. 


Professor Zadeh wanted to use concepts which cannot be precisely 
defined in mathematical terms. Examples of these concepts include: 
tall, fat, beautiful, large and even middle-aged. Most of the terms 
are abstract and depend on who is saying them. for instance, a person 
might look beautiful to someone — but not to someone else; a four-Foot 
high tree may seem small - for an oak - but if it was a bonsai tree it 
would be guite large. The terms change according to the individual. 


Aristotle's logic Law of the Excluded Middle becomes redundant and 
fuzzy theory lets objects be members of contradicory groups. There 
only exists a greater probability that one Ching belongs to a set than 
to another. eg. a day may have a 70 per cent chance of being too hot 
when the temperature is 35 degrees celcius if you wish to play sport, 
but it would be just the right temperature for going for a swim. 


Fuzzy logic allows computers to make decisions, if programmed to a 
persons” preferences, It is more efficient (Toshiba's voice-control]led 
lift system uses fuzzy logic to work out how long people have been 
waiting, and favours those who have waited fora minute or more). It 
is cheaper (Mitsubishi's Beaver Warp Inverter Air Conditioner uses 50 
“fuzzy rules" to keep a constant air temperature and uses 24 per cent 
lesa energy than traditional arr conditioners). 


As a result of this. the Ministry of International Trade and 
Industry (MITI) set up the Laboratory for International Fuzzy 
Engineering (LIFE) with $us70 million for five year's research 
funding. - 


From the way fuzzy logic is going, it shouldn't be too long before 
we will have the machines around us running on fuzzy logic - 
Televisions, Dishwashers, Toasters, Video cameras. How about a radio 
which "knows" your favourite music types and searches the local radio 
stations for your favourite piece of Beethoven, Crowded House or just 
any Reggae tune. Sounds too good to be true? Not at all! already tests 
are being done to bring about this sort of thing. 


Although these things will come out, there will - of course — be a 
market for machines which will still be operated manual ly. There will 
always be people who like things done the good Old Fashion way. 


fuzzy logic source - jack schofield - smh 20 may 1991. 
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ADVENTURE GAME WRITING - THE VERB SUBROUTINES 


The next aection in the program branches the program off to the 
various verb aubroutinea. Thia ia normally done by an ON VB GOSUB 
800, 800,800, 800,930,980,1060... atatement. Unfortunately the atandard 
VZ doea not aupport thia command unleaa one of the various Extended 
Baaica available ia uaed. The moat common way around thia ia to use a 
great pile of IF... THEN atatementa. 


eg. 

I£VB>@ANDVB<5STHENGOSUB899 

IFVB=STHENGOSUBS38 

IFVB=6THENGOSUBS8O ` 

IF VB=7THENGOSUB106@ 

etc. ° 

There ia a way to simulate the ON... GOSUB command from standard V2 
Baaic, but once this haa been done, these particular lines can’t be 
edited. For thia reaaon it ia important that the line number at the 
atart of each verb aubroutine ia known before you do thia. Therefore 
ali of the verb routines aust be designed beforehand. pua 

(There ia no nasd to type the program in in order of line numbers. 
Just type in each particular section aa it intereats you - I generally 
atart with the data atatementa even though theae are at the end of the 
program.) 

= The verb aubroutines are not difficult to write ao long as you 
make a few prepartiona beforehand. You ahould have your adventure map 
in front of you, and thia ahould ahow the locationa of the gettable 
and fixed objecta. You ahould liat your verba and all of your nouns, 
numbered in the order that they appear in XS or YS. (see the map in 
VZDU Nov/Dec 199@.) You ahould alao have a liat for your F (flag ) 
array, ahowing the uae of each element. There should be one place for 
each gettable object, and thia ahould indicate whether it ia visible. 
Aa vou come acroaa a use for an element, write it down on your liat ao 
you have it for future reference - you will almoat certainly need to 
use the same flag elaewhere in the program. For example, if FO19) is 
aet aaide for a locked door, not only ia this altered by the UNLOCK 
routine, but when you are moving around, the move routine has to check 
whether you can walk through the open door, or are trying to pasa 
through the Locked door by aupernatural meana. 

I usually write all of the verb routines out onto paper firat. 
before I type them into the computer. This enables you spot possible 
problema and errora before you type them into the computer. If you 
fird a bug while running the program, especially one which does not. 


[eye ah effort measage, tt la eaay to simply look through your liating 
to find the exact location. It helps you to also add in a few extras, 
auch as sound routines as required. If you decide to do this, make 


aure you leave a gap of at least 10 between each line number. You may 
find that one line may turn out to be two or even three or four when 
you type it in, due.to the VZ'a 64 character reatriction. You may need 
to add in linea that you forgot to include earlier, or you may want to 
add aome aounda or other thinga when the main body of the program ia 
finiahed, 

However once you have everything prepared the verb routine linea 
can aimply be "read" in the aame aort of manner aa sentences. Here are 
a few examplea from the EXAMINE/LOOK routine. (Note the use of H aa. 
Reil@8+1B from the laat edition.) Pe | 


112@ R&S="YOU SEE NOTHING SPECIAL ABOUT THE “+Ta 


/ 













This line is included at the start. If there is nothing speciale... Ee 
the object the player has aaked to axamine, thia measasage 1% | 


altered.) 
1192 IFH=819THENRS="I1T SCRATCHES yYou'':S=S-3 


(If you are in room 8 - the room containing the cat - and wish” 
awanine thia cat, reply “It acratchea you" and remove three atreng% 
pointa.) x 


t 239 EH] D2QANDE €24)21,h82"THIS IS MUCH MORE INTERSETING" :F (4) =9 
1346 ivi J 2eAWDE C4) 70, Res "AARCHE TTS YOUR ENGLISH NOVEL" :F(24)=1 
(I£ you are in the Lounge and wish to examine the pookahelf, and have 
not ewaained it before, reply ia the mesaage about the engliah novel, 
and update FCL4) a6 that you have looked at the ahelf before. If you 
have exanined the ahelt before, reply “Thia ia much more intereating", 
and aake the computer book visible.) 

1289 IFH*2325THENF (11) 79; Ra=""SOMETHING HERE, ROVER!" 

(If you are by the bushes, and exanine them, the reply ia “Something 
here, Rovert" and make the bone visible.) 

1320 RETURN 

(Don’t forget thia muat be placed at the end of each verb routine.) 
Thia ia a typical routine - LIGHT 


156@ R3S="FOOLING AROUND WITH THE '"+TSr"ISN’T GOING TO HELP" 

1570 IFB<>14THENRETURN | 

1380 IFF C27) "1 THENRS="IT’S ALREADY ALIGHT, YOU MORON" : RETURN 

1590 IFC(13) OOTHENRSa “YOU DON'T HAVE ANY BATTERIES": RETURN 

160@ RS="IT CASTS A BRILLIANT BEA MoE COTIELIIFF (21) =1,F (21) =0 

161@ RETURN 

I£ the player tries to light anything but the torch, thia input is 
obviousiy ridiculed. The input 18 alao rejected if the player triea to 
Light the torah when if ia already lit, or when there are no 


hattertea. (The aituation where the player haa no torch ta dealt with 
in the error checking poutine dtacuased laat iaaue.) I£ the player 
wanta ta DEGREE the Torch, “A8 tne batteries, and it ia not yet lit, 
Fores te altered to show it ia Lit, RS ta changed to “Tt caste 4 
brilliant beam“ and if the player 18 in a room where nothing can be 


aeen (F (21121), the rece ia Lit up (F(21)s@). 

In aome linea, the liat of conditions for IF... THEN atatamenta is 
ao long that there ta hardiy any- room for the actions which ere 
carried out if the condition ia true, due to the 64 character line 
reatrietion, Rather than type the condition on the next line again, in 
the firat line you aset a variable (I uaed the letter U) to equal one, 
then on the next line type IFU=1THEN..... Don’t forget to reaet U to 
equal zero again afterwarda. 
eg. 

1980 IF(F(22)=R AND B=18) OR H=S19THENU=1:S=INT(a/2): R&S="THE “+TS 
1999 IFU=1THENRS=R2+" DOES NOT TAKE KINDLY TO BEING EATEN, ” 
1995 IFU=1THENRS=RS+"AND SO BEGINS TO EAT BACK": U=0 


(These lines are part of the EAT routine. Note that the dog in this 
program can move around at random, patrolling the area in rooma four, 
five and nine. It will alao follow you if you make friends with it 
aomehow. It’a room location ia atored in F(22). If you are in the same 
room aa the dog and try to eat it (a very ailly action!) or are in the 
cat’a room and try to eat the unfortunate tom (equally ailly!), your 
atrength will be halved due to the retaliation, and the message from 
the above linea ia put into Rg. thia waa one of the irrelevant or 
ailly repliea to irrelevant or ailly combinationa of worda that I 


$ 





F Y 
z 
` 


mentioned in the first article in this series.) 


With the use of the U variable in the previous lines, it is a good 
idea to use the same variable for every time you need to use one for 
this purpose. Space is reserved in the memory for every different 
variable you use, so it is best to use as few as possible. 

With your lists of verbs, nouns and flags, your map, and the 
listings of other adventure programs, you should be able to design 
most of your verb routines yourself. However there are a few other 
verb routines that should be examined in some detail. 


MOVING AROUND 


800 D=VB:0=R:IFD>4THEND=90 | 


(Lines 810-860 are left for things that prevent the player from moving 
in the direction they want to, in spite of there being an exit there. 
This may be a locked door or a magical force field. 
different levels in the game, these lines also deal with moving up or 
down. Thia game doesn’t have any up or down, but what you would do is 
jah aside two extra verbs - U and D. You would then use lines like the 
Ue el lowing: 
“g@@ LFR«29ANDD=6THENR=359:RS="OK": RETURN 
@30 IFR=S9ANDD=STHENR=29:RS="OK": RETURN 
Most other lines would resemble 
81@ IFD=1ANDR=21ANDF(19)=OTHEN RS="YOU CAN °T. THE DOOR IS LOCKED" 
But your lines would be slightly different for different situations.) 
870 IFMIDS$(DS$,D,1)="0",R=R+VAL ¢ MIDS ('°-505-101",D#2-1,2): RS="0OK* 
$80 IFO=RTHENRS="YOU CAN’T GO TO THE “+23 (D+9) 


If you have 







Line 872 is quite complex so we will use an example to explain it. 
Assume the player entered "N". In this case D would equal one. If the 
first character of the movement code is a zero then there is an exit 
to the north. Therefore the value of the first two characters in the 
"595-101" string is added to R, so in effect 5 is subtracted. If the 
move was south S would be added: if it was west, one subtracted, and 
if it was east, one would be added. The message “OK” is put in RS, to 


zh e it from "I need two words”. 

| angg the movement code revealed that there was no movement Boat eee 
in the desired direction, then O would remain equal to klas oe 
message in RS would be changed to “You can’t go to the nor 


whatever direction). 


= = EF (21) =Q 

j 7) =@AND (R=15ORR=20) THEN F(21)=1ELS 

ni EA terch is not lit, and you are in room 15 or sae ee 
make the room dark. I£ not the room 413 light.) If you wish to ie 

ao that the player can’t enter a dark room without a light at Ait, 


thia is the sort of line you would use. z 
890 LE C27) <@AND(R=150RR=20) THEN R=O:RS="YOU NEED A LIGHT TO GO THERE 


The rest of the lines in the move routine after this deal with things 


ter a new room, such as 
ight happen to the player as they en 
ane "nan id hole, being attacked by 4 hideous monster, or being 


seriously annoyed by a bunch of crickets chirping at him. 


INVENTORY ROUTINE 


7 G ".sU=0:T=0:R$="0K" 
980 CLS:PRINT"YOU ARE CARRYIN a 
990 FORI=1TOG:IFC(I)=0THENU=U+1: NEXTELSENEXT 


T: 


995 IFU=@THENPRINT"'NOTHING.": GOTOS97@ 





Thia part of the routine checka to aee how many itema the player ia k 
carrying. If none are being carried the player ia notified that he ia 
carrying nothing. 


1000 FORI=1TOG:IFO(I)<>@THENNEKT: PRINT". ":GOTO1040 

1012 L=1*514695:GOSUBS300: READOS: PRINTZS (ASC (08) -44); 

10615 PRINTRIGHTS(08,LEN(O8)-1);: T=T+Li:IFT<U-iTHENPRINT", m 
1020 IFT=U-1THENPRINT" AND ms ie 

1030 NEXT:PRINT"." 

1040IFC(5)=OTHENPRINT"YOU HAVE": FC25) ; “ITEMS OF FOOD LEFT." 
1450 U=9:GOTO97@ | 


In thia part if the player haa a certain object, the line nusber 
containing ita deacription ta calculated. The deacription ia then read 
from the data. It ia printed by decoding the number in front of it. 
(aee the aection on diaplaying the environment.) The reat of the 
deacription ia printed followed by a comma, an " and " or a full stop 
_— whichever ia appropriate. I£ the player ia carring the food, (adhe 
ia told how many itema are left. (When picked up there are ten itema, 
and thia ia decreased each time the player EATa it.) Finally to aave 
memory, the routine goes to the end of the HELP aubroutine at 970 - 
thia part ta required for both routinea, but la aelf-explanetory. 


97@ PRINT@480," preaa any key to continue....."33° INVERSE 
ATSEORT =i TOLAGLAa= INKEYSINEXT: IFAS=""'THENO7SELSERETURN 


GET ROUTINE 


aco IF aGhBagTHENRS="YOU VANDALt YOU CAN‘T TAKE THAT"? RETURN 
aye IFC OB) C>RORE(B) <20,R9="L CAN'T SEE THE "+T@:RETURN 

1@a0 IFWeW(B)>S/2THENRS="YOU CAN T CARRY JUNK THAT HEAVY"? RETURN 
1@90 C(B)=0:W=W+W(B) :RS="OK. YOU TOOK THE "+T# | 

111@ RETURN 


(Note that lines 1093,1095 and 1100 are only relevant to the demo 
adventure.) di 

The player ia informed and the input rejected when an attempt ia 
made to take a non-gettable object, a gettable object that isn't 
there, haa already been taken, or ia not viaiblé. I£ the combined 
weighta of all the objecta the player ia carrying, plus the object 
being picked up exceeds half of the player’a current atrength, the 
object ia deemed too heavy for the player to carry, and can’t be 
nicved up unless something elae ia dropped or atrength ia somehow 
increaaed. 

I£ none of the above happena, the player can pick up the object 
and the weight being carried ia adjusted accordingly. 


LEAVE/DRUP ROUTINE 


Theae can be both covered by the one routine deapite the fact that 
thinga that are DROPped are more likely to tend to aplatt, etc. 


133@ IFB=Q20RB>GTHENTS="YOU AREN'T CARRYING THE "+T3:RETURN 
1340 CCB) =RIRS="OK": IF (B=130RB=14) ANDF (27) #1LTHENF (27) #@ 


10 





1345 IFB=10THENF (23) =OELSEIFB=7 THENF(31)=90 


1347 W=W-WCB) 

1350 IFVB=11THENRETURN 

1360 IFH=2415THENRS="VANDALt YOU BROKE THE GARDEN GNOME": RETURN 
1370 IFB>14ANDB<18THENS=S-W(B)/5: R&="OUCH!t IT FELL ON YOUR FOOT" 


13890 RETURN 


I£ you leave the torch or batteriea behind, and the torch ia lit, it 
ia then extinguished. If you drop the headphonea or gaamaak while you 
are wearing them, it ia aaaumed you removed them firat. The 
appropriate weight muat be aubtracted from the total weight carried. 

At line 1359 the LEAVE aubroutine RETURNa sao anything happening 
afterwarda appliea only to the DROP routine. In thia program if you 
drop the rock near the garden gnome you will amaah it, otherwise if 
you drop the rock, the fridge or the washing machine (yea, the laat 
two can actually be picked up if you are atrong enough) they will fall 
On your foot, and, quite natually, hurt it. Both of these will not 
happen if you LEAVE theae objecta. 

Mute for all verba in general, if an object diaappeara off the 
face of the earth, by being deatroyed in aome manner for example, you 
let it’a C flag equal the number of rooma plua one. When the food is 
all gone in thia adventure C(5)=26. 


DIRECTING THE PROGRAM FLOW TO THE RIGHT VERB 


Thia section ahowa how to use the ON GOSUB command anywhere in 
your program without an extended BASIC. Make sure you have your 
program anved on tape or disk, aa you could deatroy it if you make a 

 miatake. 

Firatly type the following aomewhere where it will not be in the 
way of any of the other program code. eg line 19000 


10000 DATA237,31,33,121,205,44,27, 210,217,30,237,67, 33,121,201 
19945 L=14000:GOSUBS300 

1201@ FORI=31296T031304:READA: POKEI,A!:NEXT 

19820 POKE30862,58:POKE3@863, 122 


Type GOTO1@00@ to run thia routine. 

Type your ON GOSUB linea exactly asa they would appear normally 
except inatead of the word ON, uae aome aort of dummy aymbol. I 
usually uae a hash aymbol (#). | 


Fav MVE GOSUBSOO, 880, 400, 800,930,980, 1060,1128,1120,1330,1330 


(liat the line number at the atart of the firat verb first, the second 
verb aecond, etc.) 

You won’t be able to fit all of the verba line numbers on a single 
line because of the 64 character line reatriction. To get around thia 
we would atart another line with #VB-11 GOSUB... Thia createa another 
problem though. When VB ia 11 or leas, it will GOSUB the appropriate 
routine, but when it RETURNa, it will come acroaa an ONVB-11 GOSUB... 
atatement. Needleaa to aay, ON GOSUB doesn't like negative numbera 
very much, ao they cauae ?7FUNCTION CODE ERRORs. Therefore in hetween 
each # GOSUB, we muat put linea auch aa: 


425 IFVB<12THEN4S@ x 
430 #VB-11 GO3UB1390,1450,1480,1560,1620, 1650,1680,1720,1790 
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435 IFVB<21THEN450 
449 #VB-20 GOSUB1820,1860,1979, 2050,2250, 7000,7100 





Make aure you have every line perfect for your program, because once 
the linea have been turned into proper ON GOSUB atatementa, you will 
not be able to LIST or edit them properly. 

If you have not loaded the find line number into memory by using 
the aubroutine at 10060, do thia now. If you have run the program 
aince doing thia, you must change the valuea POKEd into 30862 and 
10863 beck to the valuea in line 10020 - ie 58 and 122 reapectively. 

For every line of ON GOSUB, type PRINTUSRCline number)+4 
eg PRINTUSR(420) +4 
Thia ahould return a value somewhere above 31469. I£ it ia greater 
than 32767 - in moat casea it will be, you muat aubtract 65536 from it 
to obtain your value. Thia value ia the locetion of the firat byte of 
code in your line. (You ahould write thia value down in case you need 
to edit the line later on.) From‘here it ia just a matter of POKEing 
the token for ON into thia poaition - the value of thia token ia 161. 


eS J ` 
PRINTUSR(420) +4 | 

350008 

When 65536 ta aubtracted from thia the reault ia -30536. (Note that 


the 35009 ta pot tha actual value ~- it ia juat an example to 
{liluatrate how thia ia done.) . 
POKE -36536,1661 
Now if you liat line 429 you will see the line number but you will not 
aee any of the code - just a blank line. 

ince you have done this for all your ON GOSUB linea, everything 
ahould work properly, The linea from 10000 onwarda are now fairly 
uaeleam so you can delete them. If you find you have put the wrong 
line number in one of the statements, or made some other error, POKE 
3% into your location value for thia line. Now the line will not work 
but you will be able to LIST and edit it. Once you have fixed it up, 
PORE toi into the appropriate location once again. : 


There ia another section between thia and the verba which deals 
with thinga that happen irrespective of what verb the player entered. 
Thia aort of thing deala with decreasing the player’a atrength due to 
tiredneaa either by a conatant amount, or in thia case depending on 
how much ia being carried. Normally the battery life Cor life of 
whatever light source you use) would alaso decreaae. - 
ag IFF(27)=1THENTL=TL+1: IFTL=SOTHENRS=RS&+". YOUR BATTERIES ARE DYING" 
IF TL=G@THENF (27) =@:TL=61:RS=R8 +". YOUR BATTERIES ARE DEAD” 


Other things which happen include the dog atealing your food, the dog 
chasing the cat if both are in the aame room, wear and tear on you 
cauaed by being in the aame room aa your brother, the dog moving 
around at random, ete. It alao checka to see if your atrength has 
become zero. If it haa, you have either died or become too weak ta’ 
continue. If not it returns to the main part of the program. l 

By now, if you have a copy of the demo liating and have written a 
plot, you ahould have enough information to put your own adventure 
together. However in the next isaue we will look at a few extra 
routines for advanced programs. 





REPLACING PRINTER RIBBONS 


By JOHN LUXTON 


Who has a printer that uses a half inch or 2m 
plastic base carbon tape? Who would like to be able to 
reload the cassette and save a bundle? Well, if your 
printer uses a cassette which exposes about 26cm of 
tape which the print-head works on, or maybe other 
configurations, I way be able to help. 

My printer is a Compute Mate 130, model CPB80. 
According to the box of a Pelikan ribbon I once bought, 
this cartridge is used by quite a nuaber of printers 
sa edieg a Commodore 4023 P, a Sekonic, Shinwa and 
viëbablp others. A glance at a catalogue reveals many 
other similar types, Also the cartridge I use has a 
projecting knob at the pinch roller end for manual 
rewinding, The opposite side has the socket which is 
T by the printer mechanism for advancing the 
ribbon. 

last year when we were in Sydney I got a yellow 
pages to see if I could find a supplier of bulk ribbon 
to refill spent cartridges. After a few discouraging 
calls I discovered a firm, Lazarus Ribbons, of 70 
Wolseley Rd., Mosman, 2088, phone (02) 960 2737, who 
would sell me a 1000 foot roll of ribbon fora 
reasonable price. They were awaiting stock from the 
U.S.A., So in due course I received the rol) of ribbon 
posted to ay home for $29.73 all up! 

I first experinented by removing the top of the 
cartridge by the judicious use of a knife. These tops 
are held by dowels, or occasionally with small screws 
and dowels, but can be removed with care. However this 
method is not recommended, as springs and things can 
cause problems. The better way to go about the job is 
to Pul} out the ribbon from the delivery end until the 
cartridge is emptied. 

Aefere proceeding a few things are required to do 
the job. A video/audio tape splicing Jig, Tandy cat, 
No. 44-9570 at about $6.95 is handy. I prefer the wider 
3M Magic Mending Tape, but half inch video splicing 
tape is O.K. A sharper razor blade than supplied by 
Tandy is also useful. Winding the new ribbon into the 
cartridge can be done manually, but takes tine. I use 
my newly acquired Makita cordless drill come 
screwdrjver, set in reverse, It is slow enough, but 
does the Job very efficiently. 

When the tape is al} emptied from the cartridge, 
cut the tape across the front, and splice on the end of 
the replacement tape. Make a good splice and trim any 
excess sticky tape, then pull the new ribbon through 
the cartridge from the delivery end. If your splice was 


faulty and breaks inside, you will have to take the 
lid off and feed the tape through, making sure you 
don't end up with springs and pinch rollers everywhere. 
Pull. out a foot or so of the new ribbon, then devise a 
way of geasuring off the reauired amount from the roll. 
Use clean boxes or such to hold the loose ribbon and 
keep it clean. I have found that the cartridges I use 
hold from 25 to 30 metres. It seems to vary a bit, You 
can best work out your own method of measuring the 
required length. | 

How to load the new ribbon into the cartridge. The 
winder knob on ay cartridges goes anti-clockwise, so I 
have to set reverse on the drill, fasten the chuck to 
the winding knob without using undue force. Then I hold 
the cartridge vertically with the delivery end between 
ay knees, and holding the drill in ay right hand 
commence loading, guiding the tape through ay left hand 
to avoid any kinking. When a couple of feet of ribbon 
are left, unchuck the drill. Then carefully splice each 
end, taking care not to twist the ribbon, and putting 
the splicing tape on the shiny side, If using the wider 
tape, carefully trim with sharp scissors any sticky 
tape either side of the ribbon, then wind the excess 
into the cartridge. I sometimes again chuck up the 
dril! and run the ribbon through to check on the 
splice, but if quality splicing tape is used, there 
should be no worry. At the moment I have reloaded 4 
cartridges, and find that I can do one under 20 
minutes, 

The savings are obvious. At least 10 cartridges can 
be reloaded fron a 1000 foot roll of ribbon. Depending 
where I buy ribbon cartridges, and the brand, the cost 
can average,say, $20. That's an outlay of around $200 
against the $30 I paid for the roll of ribbon. So far I 
can't vouch for the quality of the ribbon, but was 
assured it was best quality from the U.S.A. 

[ found it advisable to make up a couple of cheeks 
the size of the roll from nasonite. The hole in the 
centre of the roll was one and a half inches, so I cut 
a circle fron half inch pine board with a hole cutter, 
and used the piece for the centre of the roll, 
Fortunately I have a lathe to finish and sand the 
cheeks and centre to size. Possibly the ribbon can be 
spooled off without spilling, but I took no chances. A 
quarter inch machine screw and nut finished off the 
Job. 

As I indicated, I can only speak for the cartridge 
used in ay printer, but I should imagine that most 
types of cartridge containing plastic half inch ribbon 
can be dealt with this way. Could be an opening for a 


cottage industry! 
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Have you ever wanted to make your own graphical game like Dawn Patrol.? 
When you use Pasic,it is too slow to move the charactems on the screen. 
{f you use `ront Ceorges*SPRITE HDITOR*,you can make a simple game in a few 


hours. 
Firat lead the "Sprite Editor*., This tape has two different screens. 


ieser Ó in the Low reselution,it has a screen where you draw your sprite, 


er en d is hich resolution,it cives you a demo of your sprite of how it 
will look. 


Use the controls next to the view screen to draw the sprite. 


After you have assembled it PRESS X for a demo,PRESS X/again to go back to 
low resolution screen. 
when you are fally satisfied with your sprite,Press SHIFT and 8 ,this will 


wipe the sprite editor,s0 you c.n start typing your jane. 
che fies! line of any sprite Frosgram must be; 
t GOR SOSR2 OD EPOS SCG y 124 


ow you can type in your tacksroundit can be mazes,grids,etc. 

bh dg os ald Lica to lone your rtackrround first on some graph paper, 

Cree you have typed im the background and “ant the sprite to appear again, 
type in ; 

aU POKE *1521,2 ; DaUSR I ¿56*X+Y) ;: 1 Che 31631,0 


X arà T arë tre positions where you want the sprite to appear. 
Now type in; 
40 D=USR(-1) | 
This line will update the position of the sprite,if the keyboard or joystick 
has been operated. 


How consult the "Sprite Editor Took" that comes with the tape for; 


Changing sprites 
Collision testing 


Aim & rire testing 


; 
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Ps: ve LETTER TO THE EDI TOR 


Dear Editor. 


Despite the fact that DSE stores no longer support VZ hardware and peripherals, 
and their software is fast drying up, a number of very active Users Groups still 
exist. Furthermore, a number of hard-working and dedicated people have/are developing 
some excellent software for the VZ. 


An excellent range of Utilities now exist for the VZ and I thought it might be 
useful to identify the types of software available to Users and to mention the 
sources of these items. The opinions expressed are of course mine, but they are based 
upon the actual use of the various packages mentioned. 


Most of the "new' and high quality software is disk-based - sorry for the 
“o tape-bated Users but a comparable ranqe does exist for these systems. All of the 
software is supplied with qood manuals. | 


a 


The Best Sinale Piece of software available for the VZ, and probably the Most 
Useful, is the GUICKWRITE II Text Editor developed by Milburn and sold by VSOFTWAREZ. 
Yhe Word Frocessor is superb and the manual excellent. Well worth $40. 64K Memory 
Expansion essential. 

The Rest Database program is Laserlink’s MARK 64 DATA BASE available from me for 
$40. A 22k version ig also avallable us the one mentioned, needs 4K. 

The Rest Spreadsheet is LASERCALC by Kitch and available from me for $30 - manual 
te lauded. i 

The Best braphics package is ART GALLERY by Bruce Kitch and available from me for 
$20 incuding manual. (A multi-disk version of PRINT SHOP will soon be available.) 

That covers the four most useful categories of software, but an important set of 
Utilities exist for the Low-level Programmers. : 

The best Assembler is Laserlink’s DISKED EDITOR ASSEMBLER by Harwood and 
avaialable from me for $29. 

The best Disassembler is the DISASSEMBLER DISK by Peter Hickman and available . 
from him for $25. 

The best Monitor-Debuager is the DISK DOCTOR TOOL KIT by Kitch and is available 
for $20. A disk sector reader is included. 

For copying programs Larry Taylor’s COFYFRO4 is second to none and available from 
USOFTWAREZ for $20. 

As most people use Epson compatable printers. Larry’s PRINTER FATCH V1.4 is 
invaluable at $10 trom VoUF TWARKEZ. 

Ihe best Extended BASIC available is undoubtedly Laserlink’s XB by Russell 
Harrison and available from me for $50. 


The only BASIC Compiler available is Laser link?s VZRASCOM by Kitch and is 
available from me for $430. 


The Best Other Lanquaqe available on the VZ is the Public Domain CHIP-8 
Interpreter. | 


Well there it is! A very useful set of software for $300 that turns the VZ into a 
very smart Z80-based machine. | 


Reqards to all 


Rob Kitch 
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disk users, but “nary a 


. : a availahie for 
Rob has given a goad account of programs availa I'll fill in and add ay 


word” for the tape users. As most of our members use tape, 
opinion to Robs, some of which differ. 





The greatest boon to the VZ users must undoubtedly be Russell Harrison”s sha 
closely followed by Larry taylor`s Printer Patch: though not necessarily wr: as 2 
will not reside with X R. Rut FF ÚV 1.2 will, I 

These P.Patches don't suit all printers though. GP100 does`nt need ne: ae 
Jandy and OKI printers need a different patch, which are available fros Larry fayior. 


R is for disk use only, but there are others available for tape 
They can be used with either tape or disk. 


generally require 54K aeaory. 
and with the addition of a 


tinfor tunately “ 
sers? one bv Onley and ane hy @brist. 
Ihe Quickwrite series are only for Disk, and 
there is « qaod Wordpracessar available far tape, 


However 3 
patch, are very suitakle for disk. I use ane exclusively. It anly needs 16K MEROFr Y 
expansion. There is alsa a Wordpracessar cartridge for the (Z, that will run às 
je as it has it’s own memory daes*nt need an 


well on the 200 as on the S00, and 


eNPANSION. f l š 
— same EditorZñss, Hab refers ta is available for tape. Feter Hickaan’s 


dissassembler is only useable an disk, but there is an that works with tape ar disk. 
The Rasic Compiler is the only one, and can be used with tape or disk, Rut it has 
to he loaded frome disk. It is limited ta about 10K prograas hecause af lack of 


memor v. ae I _ ae . 
The purpose of a caapiler is te convert á HIGH LEVEL language (Rasic) into 
aachine language, and save it as such. This means that it does not have to be 


| / . f , ae: tr faster. 
INILAFRLE IED each time 1t 15 run, whith agans It runs | | 
In general though, basic with machine cade subroutines for such things as 


s £ s Q < nough, = 
ME DR ae E tended Nos program with some very useful commands in 
FI. There is alsa a DOS EFRUN that qoes in the disk controller. , 

fhe KRASIE EPRUM replaces the Vé KUN and gives the range of caonmands that the TRS 
30 had. Rath those Fpraas are available froe Rob. (IED.j 


é EP Oe. 
OUR LIBRARY BOOK LIST 

TITLE AUTHOR . POSTAGE - DEPOSIT LOANTIME REMARKS 
Z IE ai oa DEER EE DA LA AL EE 
358 ADVANCED BAGIC PROGRAMA WAATGON 62.80 620.00 MONTH 
97 PRACTICAL COKP. PROGRAMS TRACTOR 02.80 620.06 1 MONTH ADVANCED MATHE. 
ASSEMBLY LANGUAGE PROGRAMMING SYEVE ONLEY $2.80 $40.00 2 MONTH® ABOUT THE BEST AVAILABLE Š 
BATTLE GAMES UBBORNE BOOKS 91. 60 $10.00 i MONTH 
COMPUTER AND VIDIO GANES USBORNE BOOKE $1.00 $5.00 1 MONTH TELLS HOW TO WIN 
COMPUTER CONTROLLED ROBOTS POTTER @L.GO os 1 MONTH 
COMPUTER HANDBOOK USBORNG 2.980 $15.00 2 MONTHS 
COMPUTER SPY GANES USDORNE BOOKS 3.60 8.00 1 MONTH 
CREEPY COMPUTER GAMES USBORNE BOOKS $1.90 95.00 t MONTH 
EXPANDING YOUR MICRO USBORNE BQ00K8S $1.80 $3.00 t MONTH 
EXPERIMENT MITH YOUR COMPUTER USBORNE BOOKS $1.90 $6.00 i MONTH 
FANTASY GARES USBORNE BOOKS et.ao 69.00 i MONTH 
FIRST BOOK OF PAOGRANS pe $1. 0O $15.00 1 MONTH ELEMENTRY 
FIRST BOOK OF THE COMPUTER USBORNE 62.80 $10.00 t MONTH 
FURTHER PROGRAMMING TIM HARTNELL $1.90 619.00 1 MONTH 
SETTING STARTED . HARTNET & PRINGLE 61.60 615.00 i MONTH 

. GIANT BOOK OF GAMES HARTNETT k PRINGLE $2.40 $23.00 1 MONTH 
1$9LAND, QF S€CRETO TYLER & HOWARTH 61,8090 3.90 t MONTH 
MACHINE CODE FOR BEGINNERS UBBORNE BCOKS 61.90 610.00 2 MONTHS 
MYSTERY GF SILVER MOUNTAIN OXLADE & TATCHELL $1.80 98.00 t MONTH 

. OMNIBUS f | HARTNETT k PRINGLE 62.80 $26.00 1 MONTH PLEANTY OF GAMES TO TYPE IN. 
PROGRAMNMING H/BOOK BASIC & AGE USBORNE BOOKS 02.80 619.00 2 MONTHS 
PROGRAMMING HINT@ AND TIPS ` JOHN D° ALTON $1.80 $10.00 41 MONTH USEFUL FOR BEGINNERS 
PROGRAMMING IN 140 LANGUAGE HUTTY 92.90 $30.00 2 MONTHO A GOOD BOOK TO START ASBENBLY. 
PROGRAMMING THE Z80 ` RODNEY ZACS 7777??? 40.00 2 MONTHS THE LDT POST 64.30 TO 67.95 
PROGRAMMING TRICKS & SKILLG UEBORNE 41.80 $5.00 1 MONTH 
SPACE GAMMES U8SBORNE BGOGÜOKBD 1.30 63.00 t MONTH 
THINGS YG DQ WITH YOUR MICRO USBORNE BOOKS $:. 00 $10.00 1 MONTH 
VZ 200 TECHNICAL HAMUAL DOE at. no $28.00 i MONTH 
Vk 300 TECHNICAL MANUAL DOE 12.40 s2n.oo L MONTH ) 
HEIRDD COMPUTER GAMEB USBURN BOUOKE wi. o 98.990 41 MONTH 





INDE X 


# | Printout of THIEF OF BAGDAD 

$ 2 PRINTOUT OF FLYING WITCHES 
AND TIPS MEMORY PEEK ING PROGRAM LISTING BUGS 

ü 5) PROGRAM LISTING HANGMAN - HINTS AND TIPS HOW 10 WRITE 
ADVENTURE GAMES DIGITAL ELECT. PROGRAM CALANDER 

i 1 LESTING—-SILVER MOUNTAIN ASSEMBLY LANGUABE #3 SILVER 
MOUNTAIN, ASSEMBLY LANG. ADVENTURE PROG. 

š ó SILVER MOUNTAIN—(ASSEMBLY LANG.—REVIEW (F LUNAR 
LANDER---BEGINNERS BASIC 


ASSEMBLY LANGUAGE HINTS 


$7 SILVER MOUNTAIN-—ASS. LANG. —REVIEN FORMULA! MEMORY DUMPS 
mW FERGIE FITS ON THE FAP MRD PONTESOR 

-+ $ GOMUBIN SILER MNAIN—AE IASOFE— oF BIB 
ÑA. AK SWITCHING FOR 64K RAM PACK--- BEGINNERS 


BAG1G-—SUPER DISK MENU 
& ? SILVER MOUNTAIN UPDATE.-—-ASSEMBLY LANGUAGE BK BIB RAM 


PT.2-—V1 TOKENS---MISSING WORD ENABLING RUT INE—-REGINNERS 
BASIL" 
# 10 USING VZBASCOM—-CENTRONIC CONNECTIONS--- ASSEMBLY 
LANGUAGE 


# 1 ASSEMBLY LANGUAGE—-PRINTING PROGRAM MDE 0 $ 1 WORK 
SHEE S---NEW BASIC SERIES~~’ BASIC MADE EASY’ 


# 2 ASSEMBLY LANG.-—24 BIT 1/0 PERIPHERAL—REVIEW — DAWN 
PATRIN---BASTIC MADE EASY 

$13 ASSEMBLY LANG. —-BASIC MADE EASV-—PRINTOUT— CATCH 
PCO IKK TRANSFER FROM BASIC 

°P (4 STRUCTURED = PROGRAMING---CLUB NOTES—PROERAM— RANK 
RELURCILIAHIOR -BAHG MADE GAS Y ~~ PEEKEPUKE-- NUPBERS--~ASSEMEL Y 
LANGUAGE 


š 15 GAMES COLUMN-—-780 MACHINE CODES EXPLAINED—- BASIC MADE 
EASY---PRINTOUT "DEMON ADVENTURE" 

1 ib BUGS AND BUSE ers---STRUCTURAL PROG. CONT.----CONVERT 
PASTE MADE EASY-—GAMES COL--JARBON OR WHAT~-ZXMEN-23 

# 17 DIR-MENU for standard Y2—-¥YZ WHERE TO?—-BASIC MADE 
FAGY- -METIR CATION 510) = DIGITS-—SHUFFLING CARDS-~-VECTORS k 
ERS tiata SEED CrAl- TIRS FIR OLNG PLAYERS 

Git Bist GER TO DALE LE ---VECTORS & INTERUPIS cont. ---REAL TIME 
QLAEX—-POKIES-poker sachine-—~BASIC HADE EASY 


News on the VZED front 


TO VZDU # 1 TO H 31. 


$ 19 DISK DRIVE BUGS—MACHINE CODE first steps-—-DISPLAY DISK 
DRIVE NUNBER-—-SCREEN MODE MIVER---BASIC MADE EASY—HIGH SCORES AGAIN 
$ 20 MORE ON DISK DRIVE INDICATOR—LOGIG OPERATIONG-—TRAPS FOR YOUNG 
PLAYERS-- TIE SCREAM SHEET---ANIMATED GRAPHICS--BASIC MADE EASY-—THE. 
LIST COMMAND 

# 21 BOOLEAN LOGIC FUNCTIONS BASIC MADE EASY~mode(1) screen. 
READ DATA-POKE commarids. RESTORE How memory stores data, HACKERS 
and PIRATES ROTATE- a game | 

t 2. SOURCE CODE for MOVE GAMES COLUMN. ROULETTE-a game. 
LIBRARY LIST. ANOTHER SCREAM SHEET. BASIC MADE EASY-tattslatto 
checker. MACHINE CODE-first steps. 

' 23, GANES COLUMN. DISKDRIVE TROUBLES. RETRIEVE. HEX CONSTANTS. 
MARKFRUIT LODGE-a game. DISKDRIVE HEAD PARK ROUTINE. BASIC MADE 
EASY-hex to dec to hex progras. ANOTHER SCREAM SHEET, 

# 24 ~~ FLICKER FREE GRAPHICS. GAME-LIFT OFF. COMPUTING MADE EASY. 
GAMES COLUMN, TRAPS. ERRORS. MACHINE CODE ROUTINES. 

$ 23 Hom to rescue doomed programs from tape. Around the 
world.(game by 11 year old boy). Things the VZ get blamed for. Why 
make life difficult. Games coluan. Databases,which is best. 
Printer/Joystick common connection. Trading post. Other groups. 
Machine language routines. 

$ 26 Random nuabers. Databases wordprocessors spread sheets and 
Viruses. Database for use. KEND. Let's investigate V.Z. Sound. Star 
Wars These. Wordprocessars. 

$ 27 (Adventure game writing. Gases column. Let’s investigate 
V.Z.sound pt2. 

# 28. Death Maze. The Scream Sheet. Letter to Editor. High Scores. 
Load/Save feature for Adv. Gases. | 

š$ 29. History of VZ User Groups. Gases Colusn. Sound on the Vi. Tone 
Generator, M/L routines in Adv, Games. High cores, Trading Post. 

# 3. Single Ttrack Foreatt. Test Noise. Vary Duty Cycle. Disk 1/0 
errors. Adventure Game Writing. Gases Colugn, MAVI News, Sound on the 
Vi. Information, fdvance Notice. Trading Post, 

t 3i. Front Page HI-JACKED. fuzzy Logic. Latter to Editor. Sprite 
Frogragaing. Replace printer ribbon, Adventure Game Writing, News 
Ffront, More I/O Errors. Hi Res Screen. Shufflin. Gases Column. High 
Scores. Game Tapes 8-9-10. Book Library. 


| Video Technology (the company which made the good o1' VZEDs) has 
announced that they will be releasing a computer called IQ Unlimited 
in the United States for $us200. It wil] be released in August. The IQ 


will run on a television screen. 


Such aS: Spreadsheet, Database, 
Calculator and a Drawing program 


It will contain built-in programs 
Word-processor with spel l—-checker, 


The IQ will run on four C-size 


batteries or a Wall socket Adaptor and will contain 128K of memory. 
Although a computer for under $300 seems like a good idea (remember 
the vzeds were originally $ausi99 - later $aus99?), this computer is 


not expected to do well as “real PC's" with mo 
; nochrome moni 
be available for a little extra money around the same time. ONE E 
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thas. 
deal for 


in VZDU $ 
Niedzwiecki. 
their 


Come on. 


"Homework", 


Congratulations! :.- 
a 





SHUFFLING 


17 I published a routine of this name sent in by Ian 
He set some “Homework”. Until now noone has done 
but this time a junior member has come up with 
He has issued a challenge. Alter it to 


4 handed aame.!!! 


This member 16 only 12. Don’t let it be said. (Ed.) 


Vü MLS eCLEAR UU) SIMA (D2) C12) SERE 


20 DIMS (40) 


Ca) ,AAta, 50) 


50 saa s “SHUFFL ING" :FORX=1T01500: NE? 


35 PRINTAZ5, | 
PORX=1TO500:NEXT : FORA=1T05 


aÜ 


PRINT375, “DEAL ING” #PRINT #PRINT 


5Q S=RND(4) :C=RND (13) +1 
55 TEAA(S,C)=1,50FL SFAA(S,C) =| 


60 


[EAN (S.C 2 Or STe Se2 53- "DLA"eLSEIFS=3, S5="SP"ELSESS= HATS 
BO TEC> 1OGOSUB) 7ZOELSECS=STRS IU) 
ruu PRINT” EE ".S$ : FORX=1 TOS 


O0:NEXT:NEXT 


110 PRINT: PRINT: INPUT "ANOTHER HAND? Y/N"; V$ 
120 VEE NE ENE NEE SELL EIS 

170 TFO=V1THENCS= 4) 

IRO IFC=1ZIHENC$=" u 


ya The LSI HENCE” FO 
AG I£rela THENC $= ` A ` 
oyu RE TURN 


THREE NEW 


ARER 
KKH KK 
A Th 

GAS FLL U 
DOG RACE 
GAME INS 
GAME bP 
KEND” 
MARBLE S 
MOON Not 
FOKER 
RACE SEL 
ROADRACE 
ROULETTE 
G, MOUNTN 
SOLO 
SEYCATCH 
TARGETS 
YAHTZEE 


— 


This will deal 10 hands of 9 cards each, 
without shuffle. If you want to shuffle between 
hands the alter line 120 to:- 


120 rey ge NU THENENDELSECLS : RUN (Ed) 


TAPES 


TARE VOER PARE Loa 


HOR KKK KK KERK EER ROK 
RLOCKPUZ F DEMON AD |! 
COREUKLE | [ut HST d 
CRYSTALS Í FR1-2O0O01 | 
DIAMOND B INTRU 1 
PAC TOR, H LABYRNTH T 
FROD í LANL SEC | 
GULF.. | MERK INS T 
INST 1.4 I MERK LDG T 
KILLER T K FOKIES T 
LEAFEROG T ROULETTE T 
MASTER T SNAKEY-i T 
FOKER T SNAKEY-2 T 
FOKIES T TOF 20 T 
RUBICUBE T 

SHUFELIN Í 

TOTE RAC E 1 $3 
TRAF NUM T 

U/O 1 1 








THE DIRECTORY LABEL UPDATE 


WRITTEN BY D. MITCHELL 


NOW we can formatt single tracks and can formatt the directory 
track ,we need a way to restore the directory information. | 
This program is an adaptation of the ' LABEL ' program 1 wrote 
earlier. lo use this program you will need to know the ETLENAME the 
START TRACK and SECTOR and the START and END ADDRESSES , these are 
entered in HEX. | 

Once this information is entered it iS written to disk and if the 
-rack address 1S above 1 the program will update the track map showing 
that those cartars peed hy the program are not available. This program 
~gr etiji De uUSeA x LABEL your directories by olacing zero s or Dy 
pressing the return Key for the TRACK , SECTOR ., START and END 
ADDRESSES, 


Labels may be UP to 10 characters long and you can place up to 120 
labels into the directory if you wish. By typing  DIR....... as a label 
the directory will be printed to the screen. 

Move the cursor past the quotes displayed on the screen , it iS SO 
the delimitor used to separate the filetype and filename. 

Those of you that have the previous | LABEL ' program will need 
only to modify that program. 

Tne others will nave to enter the two programs listed below , the 
first program places the machine code into line ten , this is for the 
disk operations. | 

When the first program is FUN line ten is the only line left , 
then all that is required is to type the second program into memory 
trom line twenty. | 


s Ee EA PEN N RO es de 
T | oe RE AE aqa Oe EE EE GEK 
EE MEE OE uns s; 2 
ZU OR i= 1470T03 1652 :READA:POKEL, A:B=8+AzNEXT 

ats (rn 31 74R7THENPRINT "ERROR TN DATA": END 


ou se se BE SO e 


are Pow ES 14BSR 1432 IST 

OT Po Fae 5 205.8, 64, 14,50, 6,255, 4, 205,66, 64,219, 19, 185,02 
r Oro jí 56. 35, 121. 188,52 18, 205.47 8 183 TES Gn 
120 DATA eee 25,123,205, 11,64, 251 , 225,201 201 , 254, 205 BY) os 
130 DASE aga, 14,64, 205, 17,64, 185, 194,14,64, 58,41 122, 85.00 
140 I es, 119, 18,58,42, 122,255,119, 17,205, 55,64, 185.13) 
150 DATA228 285,110, 52, 255, 102,53, 253, 126, 18,61 ,203, 39,95. 22 
160 DATA OR ES 126,17, 254,8,65,237 90,250,760, 71,78, 203+, 
170 DATA: 0 16,252,203, 195,71, 205-9, 205, 1,16,252,115.255, 110 
180 DATs oe Th7 50, 1,126, 1-5-9, 126, 183,40, 10, 255,119, 18.35 
190 DATAY26, 758, 119,17,24, 179, 200,25,08- 185, 198/10, 98 28008 
200 DATAG,O,0 


After you run program one , it will look this :- 
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10 REMPEEKLEN@2139+8a INP 


PROGRAM TWO , Leave line ten in memory and enter lines 20 to 2890. 


20 POKE30862, 238: POKE3S0863,122:POKE50777, 1 

30 CLS:PRINT" THIS SMALL PROGRAM PLACES” 

40 PRINT" LABELS INTO THE DIRECTORY" 

SN PRINT" FOR FASE OF IDENTIFICATION." 

60 PRINT" LABELS MAY BE UP TO 10° 

70 PRINT” CHARACTERS LONG.” 

HO PRINTAR?224, `FNTER LABEL ER REELS " .PRINT"ENTER TRACK 
90 PRINT"ENTER SECTOR "I IPRINT"ENTER START ADDRESS 

100 PRINT*ENTER ENO ADDRESS es 

pita A=PFEK (20744) »TFA=1THENA=34F1 SEA=98 

120 COKE Bai. Aa: PRIN1a236,;: LNPUIAS: [FAS="DIR Ed Eed " THEN 200 
Uu (231273 PRINTazZ0O 3. : INPUTBI:60SUD2/ OÜ 

140 PRINTA3S01,::INPUTBS :GOSUB270 

ice PRINTASAG, : INPUTCS1G0SUB220 s PRINTAS72, + rINPLITCS sGOSUBO< 
1 $=A%+" ' . 

170 X-USR (DO) :B=PEEK (31513) +256*PEEK (31514) -65556 

180 FORI-OTOO:POKEB-I,ASC(MIDS (AS, I#1,1)) :NEXT:C=31275 

190 FART=10T015:POKEB+T , PEEK (C) :C=C+1 : NEXT : X=USR (1) :GOTO8O 
200 CLS:DIR:STATUS:PRINT"PRESS RETURN WHEN READY"; 

210 AS=INKE YS: ITF INKEYS=CHRS (14) THENZOELSEZ10 

220 B$=RIGHT$ (CS, 2) :GOSUB270:BE=LEFTS (C$, 2) :GOSUB270: RETURN 
250) Al$al FETS (HS, 1) 2 :05UB250:A=0*16:81S=RIGHTS (BS, 1) :GOSUBZ50 
IO AwzA4+O:POKEC Aco oc 6 1 DRE TURN 

250 OeASC (AIS) TFO<SBTHEND=N-4REL SED 0-55 

2PBO RE TEPN 

O79 LkbS=°..  THENBS= "OU" 

2780 GOSUB2Z 40: RE TURN 


H 


` MAL (ai a CALL ANITIH 57 RLC C 
2 ORG PAFFH 0 R A oS AR RRE C 
7 Er | Ho NE, GODE 29 DINZ A4 
i ni $2 lb A, (31273) 60 SET O,C 
É: CAEL ata 53 (R A 61 LD B,A 
f iO, Bet : o EA ihe 
5 LD B DEER 35 LD (IY+12H),A 65A5 RC C 
O ALE Gas 37 LD (IY+11H) ,A 65. LD (H),C 
10 IN A (ZH) 38 A3 CALL 4035H 66 LD L, (1Y+31H) 
' Ee 39 OR A 67 LD H, (IY+32H) 
e O ai 40 JP NZ, 400EH 68 LD 8C,017EH 
i J MAGOEH a LD L, (IY+34H) 69 DEC B 
A i: een 2 LO H, (IY+55H) 70 ADD HL,BC 
"i a E LD A, (LY+1 2H) 71 LDA, (HL) 
F E NEN 44 DEC A 72 OR A 
17 5 45 SLA A 73 R Z,A 
is oo 46 LU EA 74 LD (LY+12H) A 
Ie EE aak N IN 0,1 75 INC HL. 
jy AD 8 DEC D 76 LDA, (HL) 
1 x CALL ae 49 LD A, (TY+11H) — LD (LY+11H) A 
> PO H 51 CCE 79 A6 CALL 4017H 
24 RET es HL , DE OR A 
25 ADD DEFW OFECSH 4 r r ens 
28 Po aaae O O R = N 


